BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/Me-Mz/MegaHome™ II 3.03.cpt/MegaHome™ II 3.03/Home/background_3338.xml

Extensible Markup Language | 1992-02-21 | 18KB | 436 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>3338</id>
    <filler1>0</filler1>
    <bitmap>BMAP_4665.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_7199.css" />
    <part>
        <id>1</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>488</left>
            <top>38</top>
            <right>504</right>
            <bottom>54</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font></font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Search Paths</name>
        <script>on mouseUpgo card"stacks"end mouseUp</script>
    </part>
    <part>
        <id>2</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>489</left>
            <top>52</top>
            <right>504</right>
            <bottom>67</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font></font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Applications</name>
        <script>on mouseUpgo to card "applicationlauncher1"end mouseUp</script>
    </part>
    <part>
        <id>3</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>489</left>
            <top>24</top>
            <right>504</right>
            <bottom>40</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font></font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Home</name>
        <script>on mouseUpgo firstend mouseUp</script>
    </part>
    <part>
        <id>6</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>143</left>
            <top>325</top>
            <right>198</right>
            <bottom>340</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Open Stack</name>
        <script>on mouseUpdoMenu "Open Stack..."end mouseUp</script>
    </part>
    <part>
        <id>7</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>343</left>
            <top>325</top>
            <right>392</right>
            <bottom>340</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Open App</name>
        <script>on mouseUpdoMenu "Open Application…"end mouseUp</script>
    </part>
    <part>
        <id>8</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>202</left>
            <top>321</top>
            <right>225</right>
            <bottom>342</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>26402</icon>
        <textAlign>center</textAlign>
        <font></font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Prev</name>
        <script>on mouseUpvisual effect wipe right fastgo to prev card in this bkgndend mouseUp</script>
    </part>
    <part>
        <id>9</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>316</left>
            <top>321</top>
            <right>339</right>
            <bottom>342</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1832</icon>
        <textAlign>center</textAlign>
        <font></font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Next</name>
        <script>on mouseUpvisual effect wipe left fastgo to next card in this bkgndend mouseUp</script>
    </part>
    <part>
        <id>10</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>227</left>
            <top>325</top>
            <right>304</right>
            <bottom>337</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>bold</textStyle>
        <textHeight>12</textHeight>
        <name>kard</name>
        <script></script>
    </part>
    <part>
        <id>11</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>292</left>
            <top>325</top>
            <right>318</right>
            <bottom>337</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Page</name>
        <script></script>
    </part>
    <part>
        <id>14</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>7</left>
            <top>312</top>
            <right>58</right>
            <bottom>340</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Coords</name>
        <script>on mouseUpif not trapDoubleClick(the rect of me) then exit mouseUpif the shiftKey is down then hide me else coordinatorend mouseUpon mouseStillDowndragTargetend mouseStillDown</script>
    </part>
    <part>
        <id>15</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>439</left>
            <top>324</top>
            <right>510</right>
            <bottom>340</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Clock</name>
        <script>on mouseUpif not trapDoubleClick(the rect of me) then exit mouseUpif the shiftKey is "down" then hide meelseput the date into mewait 1 secend ifend mouseUpon mouseStillDowndragTargetend mouseStillDown</script>
    </part>
    <part>
        <id>16</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>488</left>
            <top>81</top>
            <right>503</right>
            <bottom>96</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Diagnostics</name>
        <script>on mouseUpgo cd "Diagnostics"end mouseUp</script>
    </part>
    <part>
        <id>17</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>490</left>
            <top>66</top>
            <right>502</right>
            <bottom>81</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>SAFE</name>
        <script>on mouseUpgo card"Ft. Knox‚Ñ¢ Open"end mouseUp</script>
    </part>
    <content>
        <layer>background</layer>
        <id>10</id>
        <text>Ft. Knox‚Ñ¢</text>
    </content>
    <content>
        <layer>background</layer>
        <id>14</id>
        <text>Mouse:0,0</text>
    </content>
    <content>
        <layer>background</layer>
        <id>15</id>
        <text>5:33 PM</text>
    </content>
    <name>Ft. Knox‚Ñ¢</name>
    <script>on openCardif fld "page" is 1then set the icon of bg btn "prev" to "√Grey Prev Arrow"else set the icon of bg btn "prev" to "Prev Arrow"if fld "page">the number of cds of this bgthen put the number of cds of this bg into fld "page"if fld "page"=the number of cds of this bgthen set the icon of bg btn "next" to "√Grey Next Arrow"else set the icon of bg btn "next" to "Next Arrow"updMenusend openCardon resumeStackopenBackgroundpass resumeStackend resumeStackon suspendStackcloseBackgroundpass suspendStackend suspendStackon openBackgroundglobal entryif entry is not¬"hrwe594387HGUDAS©¥^©•¶§º¶ºªriewj90fef9--03290-r30-=\\3iyu2t¡" thengo firstexit openBackgroundend ifset the cursor to 4lock screencreate menu "Manager"put "Dragging,Mouse Coordinates,-,New Card,Remove Card,-,Clean Up,-,Set Secret Code…" into menu "Manager"get cd fld "bad" of cd "Ft. Knox™ Open"show menuBarif it is not 0 and it is not 1 thenbeep 2answer it&&"unsuccessful break-in attempts." with "OK"end ifif it is 1 thenbeep 2answer "1 unsuccessful break-in attempt." with "OK"end ifput 0 into cd fld "bad" of cd "Ft. Knox™ Open"put cd fld "try" of cd "Ft. Knox™ Open" into triesif tries≥100 thenbeepanswer "Reminder: time to change your code." with triesend ifend openBackgroundon doMenu itum,menuNameif menuName is not "Manager" then pass doMenuput the number of btns into xif itum is "Dragging" then toggleDragelse if itum is "Mouse Coordinates" then toggleCoordselse if itum is "New Card" then  --NEW CARDset the cursor to 4lock screenset the lockMessages to truego to last cd in this bgput fld "page" into PFsend "doMenu New Card" to hyperCardput PF+1 into fld "page"send openCard to this cdexit doMenuelse if itum is "Remove Card" then --DELETE CARDbeep 2answer"Do you really want to delete this entire card?" with "OK" or¬"Cancel"if it is "Cancel" then exit doMenuset the cursor to 4lock screenset the lockMessages to truedoMenu"delete card"send "go prev" to HyperCardif fld "page" is 1then set the icon of bg btn "prev" to "√Grey Prev Arrow"else set the icon of bg btn "prev" to "Prev Arrow"if fld "page"≥the number of cds of this bgthen put the number of cds of this bg into fld "page"if fld "page"=the number of cds of this bgthen set the icon of bg btn "next" to "√Grey Next Arrow"else set the icon of bg btn "next" to "Next Arrow"else if itum is "Clean Up" then  -- CLEAN UPdoACleanUpexit doMenuelse if itum is "Set Secret Code…" then  --SET CODEglobal origCode,newCodeanswer "Use your own code or let the computer pick one for you?" with "Computer" or "Personal" or "Cancel"if it is "Cancel" then exit doMenuif it is "Personal" thenask"Set code to: (any 4-digit number)"if it is empty then exit doMenuput it into origCodeif the length of origCode≠4 thenbeep 2exit doMenuend ifrepeat with i=1 to 4put char i of origCode into item i of newCodeend repeat-- repeat with i=1 to 3-- repeat with j=i+1 to 4-- if item i of newCode=item j of newCode then-- beep 2-- exit doMenu-- end if-- end repeat-- end repeatsetItend ifrepeatanotherCodeset the cursor to 4put 0 into fl-- repeat with i=1 to 3-- repeat with j=i+1 to 4-- if item i of newCode=item j of newCode then put 1 into fl-- end repeat-- if fl≠1 then next repeat-- end repeatif fl=0 then exit repeatend repeatrepeat with i=1 to 4put item i of newCode into char i of origCodeend repeatanswer"The code"&&origCode&&"was chosen. Use this code?" with "Cancel"¬or "OK"if it is "Cancel" then exit doMenusetItexit doMenuend ifupdMenusend doMenuon setItglobal origCode,newCodeask"Please verify:"if it is not origCode thenbeep 2exit to hyperCardend ifset the cursor to 4global entryput card field "where" of card 1 into wherelock screenset the lockMessages to trueput "yeiwad g‡°¥¨©^gter8743y5938wu9IJ∆^ø˙dfjdshfjv48373" into entrygo card "Ft. Knox™ Open"repeat with i=4 down to 1set the loc of btn (i&"open")¬to line (item i of newCode)+1 of whereend repeatput "hrwe594387HGUDAS©¥^©•¶§º¶ºªriewj90fef9--03290-r30-=\\3iyu2t¡"¬into entryput 0 into card field "try"send"go next" to hyperCardexit to hyperCardend setIton anotherCodeglobal newCoderepeat with i=1 to 4put (the random of 10)-1 into item i of newCodeend repeatend anotherCodeon idleglobal MHpref,entryif entry is not¬"hrwe594387HGUDAS©¥^©•¶§º¶ºªriewj90fef9--03290-r30-=\\3iyu2t¡"thengo firstexit idleend ifput the short time into field "Clock"if line 3 of MHpref is true and the shiftKey is up then put the mouseLoc into line 2 of field "Coords"pass idleend idleon updMenusglobal MHprefif there is no menu "Manager" then exit updMenusset the checkMark of menuItem "Dragging" of menu "Manager" to line 4 of MHprefset the checkMark of menuItem "Mouse Coordinates" of menu "Manager" to line 3 of MHprefset the enabled of menuItem "Remove Card" of menu "Manager" to (fld "page" is not 1)end updMenuson shortMgr --Ÿend shortMgron closeBackgroundlock screenglobal entryput empty into entryif there is a menu "Manager" then delete menu "Manager"end closeBackgroundon reset whatif what≠"menuBar" then pass resetset the cursor to 4lock screensend "reset menuBar" to HyperCard --ŸmakeMHMenusglobal MHprefput false into line 15 of MHprefcreate menu "Manager"global MHselif MHsel is not empty then longMgr else shortMgrend reset</script>
</background>